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*««*(*« DRAFT!!! COMMEMTS PLEASE!!! YOUR IDEAS ARE NEEDED!!! «***«« 

Several conflicting goals must bo resolved in deciding on a set of display 
facilities for Lisp: case of use, efficient access to hardware facilities, and 
device- and system-independence. This memo suggests a set of facilities 
constructed in two layers: a lower layer that gives direct access to the Alto 
bitmap capability, while retaining Lisp's tradition of freeing the programmer 
from storage allocation worries, and an ui)por layer that uses the lov/er (on the 
Alto) or a character-stream protocol (for VTS, on MAXC.) to provide for writing 
strings, scrolling, editing, etc. on the screen. 



1 . Bitmap level 



At this level we introduce two new types of object: the bit bloc l: and the 
slice . Bitblocks (or simply blo_cKs) are just rectangular chunks of display 
memory. Bitblock primitives allocate bitblocks, and provide for writing 
strings and individual bits. Slices describe how pieces of bitblocks are 
mapped onto the screen, i.e. giving vertical position, background color, 
indentation, magnification, etc. Slice primitives •create and set the 
parameters of slices, and couple and decouple them to (parts of) bitblocks. 



1.1. Bitblock primitives 

bitblock[width ;hoight] 

Creates and returns a new bitblock of specified width and height. V/idth 
and height are given in bits. The block is initialized to zeros. 

bltblockwidthC block] 

Returns the width of block. 
bitblockhcight[ block; height ] 

Returns the height of block . 

Blocks are garbage-collected like any other data typo, when there are no 
references to them from either Lisp data structures or slices. Thus there is 
no need for a "release block" operation. 
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clearblock[block ;value ; xpos ;ypos ;wi(lth ;hGintrt] 

Clears the given subrectangle of block to ( value = NIL or 0) or 1 
(vnluc=T or 1). Error if any parameter is invalid, i.e. >;pos<0 or ypos <0 or 
v/idttK O or iLlin.bi:'^ or xpos4-v;.idth>blockv/idihr bloc k] or 
y pos + hci ght>blockheinIit[biock]. X|K)s and ypo{i default to 0; v/idth defaults to 
blockwidth[ block .l-:<pos ; hein bt defaults to blockheight[block]- ypos . 

copyblock[ srcblock;xsrc ; ysrc ;vndth ;height ;destbl ock ;xde st ; ydest ;mc r 

Copies the given subrectcingle of srcb l oc k into a subrectangle of 
destblock . Merges bits if r^>£;f(c;^WIL^ otlicrwisc ^replaces bits . 

modifyblockfblock ;xpos ;y p os ;d ata ;mode J 

Modifies a string of bits in block extending lof tv/a rds from position 
( xpos ,ypos) according to data and mode. If rnofle=NIL, sets bits selected by I's 
in data ; if mode =T, clears bits selected by I's in data; otherwise, mode must 
be a number, and replaces that many bits v/ith the right-tiand bits of data. 

blockprih[ block ;x pos;y pos;dat um;xlimit; fla g; font] 

Writes datum into block at position (xpos,ypos) . If flag =MIL, docs 
PRIMl, otherv/ise takes flag as a readtable and does PRIME, If font=NlL, uses 
the standard font; otherwise, font must be an array organized as a standard 
Alto font (see the Alto manual for details). If £n = NIb, skips any characters 
which do not appear in the font; otlierwisc, performs fn[da tum ;chno] where chno 
is the position of the character In datum (a la NT.MCMAR), and continues 
printing after fn returns. If xlimit (or the width of block, if xl imit=NIIL) 
v/ould be exceeded by a given character, performs fn[ rlat um;chno] and returns the 
value of this call; otherwise returns the X position just beyond the last 
character written. 

The primitives which modify the contents of bitlilocks can also operate on 
arrays. Such arrays must bo initialized with the "width" in element 1 and the 
"height" in element 2, both given in bits; the data is stored 32 bits per 
clement, row-wise, left to right, top to bottom, v/ith the width rounded up to 
the next multiple of 32 (as might be expected). The implementation presently 
being considered also requires that the entire array fit in core, which 
corresponds to a size restriction of about '6\i 32-bit words or 1/6 of a 
screenful. 

There is a permanently defined block called the cursor block, and an 
associated slice called the cursor slice. There is nothing special about the 
cursor block -- its width and height are 16 bits, and all the bitblock 
operations work normally on it. The cursor slice, on the other hand, does have 
some special properties discussed under slices below. 

1.2. Slice p rimitives 

Slices are slight abstractions of the Alto display control blocks. They 
have the following components: 

A bod y, which is a subrectangle of a bitblock beginning at the left 
edge; 

^ po sit ion (X,Y) on the screen, subject to the restriction that tv/o 
active slices must not overlap in Y; ^ 

A background color, white or black; 

^ r esolution , normal or halved; 

An activity flag, which determines whether the slice is actually 
displayed on the screeFi. 
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Other hardware-imposed restrictions arc discussed belov/. 

slicc[oldsl ;paramt ;valuel ; . . . ;pQrnmn ;valuen] 

If oldsl=NIL, creates a new slice with pararactcrs initialized as given; 
otherwise, alters parameters of the slice oldsl. Value is oldsl • or the new 
slice. Possible values of jiaxilOl ^^''^* 

XPOiS: the X position (must be a multiple of 16); 

YPO.S: the Y position of the lov/or odrje (must be even); 

BLOCi;: the hi tb lock; 

YD: the Y displacement v/ithin the bitblock corresponding to YPOS; 

HEIGHT; the vertical extent of the data to be displayed from the 
bitblock (must be even); 

COLOR: the background color, 0=white, l=black; 

KESOLUTIOM: the resolution, O=normal, l=halvecl; 

ACTIVE: the activity flag, NIL or T. 

The default values for the parameters are XPOS=YPOS=0, BLOCK=NIL, YD=0, 
HEIGHT=0, COLOR=0, RESOLUT10N=0. ACTIVE=:NIL. 

s licoparam[sl; param] 

Returns the pa ram parameter value of slice sjL. 

The cursor slice -has all its parameters fixed except XPOS and YPOS, which 
may be set to any values whatever (not limited to multiples of 16 or Z. 
respectively). It is always active: tlie cursor data is XOR'cd v/ith any other 
displayed data it happens to overlap. See the Alto manual for further details. 



2. Stream primitives 

Display streams (or simply streams) behave like output files with respect 
to the system printing functions, but write into selected portions of blocks 
and trap out when an attempt is made to write beyond their limits. 

strcam[st ;paraml ; value 1 ; . . . ;pa ramn ;valuen] 

Interpretation is similar to si ice ; returns st or a new stream. The 
parameters arc: 

BLOCK: the bitblock, must.be specified at creation time; 
XD: the X displacement of the string origin within the bitblock; 
YD: the-Y displacement of the string origin; 
WIDTH: the maximum width of the string (in bits ) ; 

FN: the function to be called on overflow, i.e. an attempt to v/rite 
beyond the maximum width or to write a character not specified by the 
font; 

XPOS: the X position for the next character, relative to XD; 
. FONT: the font. 
Legality checking is performed, after all arguments have been absorbed, so (for 
example) XD, XPOS, and WIDTH may be specified in any order. 

strcamparam[ st ;param] 

Analogous to slice param. 

When tl stream overflows, its FN is called with the arguments 
Cdatum;chno;strcam] where dat um is the datum that was being printed and chno is 
1+ the number of characters actually added to the display before overf lov;ing, 
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i.e. the number of tlio next cliariictcr to print. F'W will normally reset strea m 
in some manner. It then has the options of printinc) the rest of dn t urn itself 
and roturninc] T, doinn no printing and roturninn NIL, or erasing some or all of 
the part of datum already printed and rcLurning a character position v/ithin 
d atum (analogous to chiu)) at which to restart printing. Overflowing a stream 
with no FN generates an error. 

The operations of close f, posi tion , ppcji^p, and oiitpiit on streams are 
straightforward. (Closing n strecin docs not erase the characters.) I would be 
inclined to resolve two other potential issues as follov/s: writing merges the 
characters into the block, as opposed to replacing the bits (you can alv/ays use 
cloar bloc k) ; sfptr is only legal with values of and NIL. The latter 
restriction may be relaxed if it is deemed advisable to retain a record of the 
characters written. 



3. String editing 

At the higher level, facilities arc needed for constructing windows 
(arrays of strings which scroll properly) and for performing editing operations 
on strings. Editing (backspace, insert, delete, etc.) requires that every 
character written on a window also be saved in a Lisp string somewhere. It is 
probably best to provide this facility at the lower level, per open stream. 



